home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 027a / clipio.zip / BLAKMEMB.PRG < prev    next >
Text File  |  1990-06-23  |  5KB  |  200 lines
  1. private oldctrl
  2.  
  3. * begin
  4.     select MEMBERS
  5.     if findmemb > 0
  6.         goto findmemb
  7.         findmemb = 0
  8.     else
  9.         seek FAMILIES->UNIQUE
  10.     endif
  11.     vsetcolor(_c_memb_st, _c_memb_en, _c_memb_un)
  12.     if passclick
  13.         passclick = .f.
  14.         keyinsert(-131)
  15.     endif
  16.     mdefctrl(4, 1, 12, 29, 251)
  17.     menuedit(4, 33, 12, '│', mfields, mpics, 'memb_monitor', 'UNIQUE == FAMILIES->UNIQUE', FAMILIES->UNIQUE)
  18.     mrestctrl(4, 1, 12, 29, famictrl)
  19.     mdefctrl(4, 33, 12, 78, 252)
  20.     vsetcolor(_c_fami_st, _c_fami_en, _c_fami_un)
  21.     select FAMILIES
  22. return
  23.  
  24. *--------------------------------MEMB_MONITOR----------------------------------*
  25.  
  26. function memb_Monitor
  27.  
  28. parameters Mode, fld_ptr
  29.  
  30. private return_val, lastkey, choice
  31.  
  32. * begin
  33.     return_val = 1
  34.     if mode = 1 .or. mode = 2
  35.         tone(100,1)
  36.     elseif mode = 3
  37.         if appending
  38.             appending = .f.
  39.             keyinsert(-23)
  40.         else
  41.             if prompt(7, -1, 'There are no members for this family.  You can...', .t., 'Insert', 'Abort') = 'I'
  42.                 keyinsert(-23)
  43.             else
  44.                 keyinsert(-33)
  45.             endif
  46.         endif
  47.         lastkey = inkey(0)
  48.         mode = 4
  49.     endif
  50.     if mode = 4
  51.         lastkey = lastkey()
  52.         if ((keyconv(lastkey) >= -50) .and. (keyconv(lastkey) <= -16)) .or.;
  53.            ((lastkey = 387) .and. (mgetbutton() == 'L ') .and. (mgetctrl() = 255))
  54.             choice = showmenu()
  55.             if (choice = 20)
  56.                 BlakDial()
  57.                 vpopscrn()
  58.             elseif (choice = 30)
  59.                 MembDel(@return_val)
  60.                 vpopscrn()
  61.             elseif (choice = 40)
  62.                 MembEd(@return_val)
  63.                 vpopscrn()
  64.             elseif (choice = 60)
  65.                 MembAdd()
  66.                 vpopscrn()
  67.                 return_val = 2
  68.             elseif (choice = 70)
  69.                 MembFind(@return_val)
  70.                 vpopscrn()
  71.             else
  72.                 passchoice = choice
  73.                 return_val = 0
  74.             endif
  75.         elseif (lastkey = 387) .and. (mgetbutton() == 'L ') .and. (mgetctrl() < 255)
  76.             if mgetctrl() = 251     &&Family
  77.                 return_val = 0
  78.                 keyinsert(-131)
  79.             elseif mgetctrl() = 253 &&Address
  80.                 return_val = 0
  81.                 keyinsert(-30)
  82.                 passclick = .t.
  83.             elseif mgetctrl() = 254 &&Notes
  84.                 return_val = 0
  85.                 keyinsert(-49)
  86.             elseif mgetctrl() = 240
  87.                 keyinsert(-132)
  88.             elseif mgetctrl() = 239
  89.                 keyinsert(-73)
  90.             elseif mgetctrl() = 238
  91.                 keyinsert(-72)
  92.             elseif mgetctrl() = 237
  93.                 keyinsert(-80)
  94.             elseif mgetctrl() = 236
  95.                 keyinsert(-81)
  96.             elseif mgetctrl() = 235
  97.                 keyinsert(-118)
  98.             endif
  99.         elseif (lastkey = 13) .or. (lastkey = 25) .or. ((lastkey >= 32) .and. (lastkey <= 254))
  100.             if (lastkey <> 13)
  101.                 keyboard chr(lastkey)
  102.             endif
  103.             FamiRead(mfields[fld_ptr], mpics[fld_ptr], @return_val)
  104.         elseif lastkey = 27
  105.             return_val = 0
  106.         endif
  107.     endif
  108. return return_val
  109.  
  110. *----------------------------------MEMBFIND------------------------------------*
  111.  
  112. function membFind
  113. parameters ret_val
  114.  
  115. private namem, old_rec
  116.  
  117. * begin
  118.     old_rec = recno()
  119.     namem = space(12)
  120.     prompt(17, -1, "Enter all or part of member's name: " + namem, .f.)
  121.     @ row(), col()-12 get namem
  122.     vsetcursor(.t.)
  123.     read
  124.     vsetcursor(.f.)
  125.     if .not. empty(namem)
  126.         seek FAMILIES->UNIQUE + upper(trim(namem))
  127.         if .not. found()
  128.             tone(100, 1)
  129.             goto old_rec
  130.         else
  131.             ret_val = 2
  132.         endif
  133.     endif
  134.     vpopscrn()
  135. return ''
  136.  
  137. *----------------------------------MEMBADD-------------------------------------*
  138.  
  139. function membAdd
  140.  
  141. * begin
  142.     append blank
  143.     replace UNIQUE with FAMILIES->UNIQUE
  144.     keyinsert(-18)
  145. return ''
  146.  
  147. *----------------------------------MEMBDEL-------------------------------------*
  148.  
  149. function membdel
  150. parameters ret_val
  151.  
  152. private row
  153.  
  154. * begin
  155.     row = row()
  156.     vfillattr(row, 33, row, 78, vsetenha())
  157.     if prompt(-1, -1, 'Are you sure that you want to permanently delete this family member? (Y/N)', .t., 'Yes', 'No') = 'Y'
  158.         ret_val = 2
  159.         DELETE
  160.         skip
  161.     endif
  162.     vfillattr(row, 33, row, 78, vsetstan())
  163. return ''
  164.  
  165. *-----------------------------------MEMBED-------------------------------------*
  166.  
  167. function membEd
  168. parameters ret_val
  169.  
  170. private old_key, row
  171.  
  172. * begin
  173.     row = row()
  174.     old_key = get_key()
  175.     @ row,33 get NAME picture mpics[1]
  176.     @ row, col() say '│'
  177.     @ row, col() get MINIT picture mpics[2]
  178.     @ row, col() say '│'
  179.     @ row, col() get PHONE picture mpics[3]
  180.     @ row, col() say '│'
  181.     @ row, col() get BIRTHDAY picture '@D'
  182.     @ row, col() say '│'
  183.     @ row, col() get ANNIVERS picture '@D'
  184.     helpbar(edesc, ekeys)
  185.     vsetcursor(.t.)
  186.     mpushstate()
  187.     msetcursor(.t.)
  188.     msetbutton(.t.)
  189.     set key 387 to findclick
  190.     read
  191.     set key 387 to
  192.     mpopstate()
  193.     vsetcursor(.f.)
  194.     vpopscrn()
  195.     if (.not. old_key == get_key())
  196.         ret_val = 2
  197.     endif
  198.     vfillattr(row, 33, row, 78, vsetstan())
  199. return ''
  200.